home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 9 / 009.d81 / color print.test (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  76 lines
  1. 1 print""
  2. 10 poke53280,11:poke53281,0:print"[147][158]"
  3. 20 print"         color darkroom helper
  4. 30 [153]"         by  ronald c. newbery
  5. 40 print"               (c) 1984
  6. 50 [153]"          all rights reserved
  7. 60 print"    [212]his program will assist you in
  8. 65 [153]"  determining the correct color filter
  9. 70 print" settings, when you are printing color"
  10. 75 print"            negative film.
  11. 80 [153]"   (NULL)he program assumes you start with
  12. 84 print"   filter setting and times as follows"
  13. 88 print"       yellow = 50 / magenta = 50"
  14. 92 print"   and an initial time of 10 seconds.
  15. 93 [153]"        one moment..setting up
  16. 94 gosub5000
  17. 95 print"        press any key to start
  18. 96 a$[178]"":[161]a$:[139]a$[178]""[167]96
  19. 100 [153]:[153]"loadlenhoose the number corresponding to the"
  20. 110 [153]"best description of your test print:"
  21. 115 [153]
  22. 120 [153]"  1... too red     4... too cyan"
  23. 130 [153]"  2... too green   5... too magenta"
  24. 140 [153]"  3... too blue    6... too yellow"
  25. 150 c$[178]"":c[178]0:[161]c$:[139]c$[178]""[167]150
  26. 160 c[178][197](c$):[139]c[179]1[176]c[177]6[167]150
  27. 170 c[178]c[171]1:[153]:[139]d[178]2[167][137]500
  28. 180 [153]"    (NULL)hat are your current values for:"
  29. 190 [153]:[153]"  magenta   yellow   exposure time"
  30. 200 [133]ma
  31. 203 [153]"on";:[133]yl
  32. 205 [153]"on";:[133]pt
  33. 220 [153]:[153]"   how much excess ";c$(c,0)
  34. 225 [153]"is there in your test print:"
  35. 230 [153]:[153]"   1...very slight  3...considerable"
  36. 235 [153]"   2...slight       4...great"
  37. 250 b$[178]"":b[178]0:[161]b$:[139]b$[178]""[167]250
  38. 260 b[178][197](b$):[139]b[179]1[176]b[177]4[167]250
  39. 265 [139]b[178]1[167][137]300
  40. 270 [139]b[178]2[167]b[178]4:[137]300
  41. 280 [139]b[178]3[167]b[178]7:[137]300
  42. 290 [139]b[178]4[167]b[178]10
  43. 300 [139]c[178]1[176]c[178]2[176]c[178]3[167][137]350
  44. 310 nm[178]ma[170][197](c$(c,b)):ny[178]yl[170][197](c$(c,b[170]1)):nt[178]pt[170][197](c$(c,b[170]2)):[137]400
  45. 350 nm[178]ma[171][197](c$(c,b)):ny[178]yl[171][197](c$(c,b[170]1)):nt[178]pt[171][197](c$(c,b[170]2))
  46. 400 [153]"load  try these new values for another
  47. 405 print"  test print:"
  48. 410 print:print"magenta filter = ";nm
  49. 420 print:print"yellow filter = ";ny
  50. 430 print:print"exposure time = ";nt;"seconds"
  51. 435 print"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  52. 440 print" 1... test a different print"
  53. 445 print:print" 2... re-test the same print"
  54. 448 print:print" 3... end the program"
  55. 450 b$="":d=0:getb$:ifb$=""then450
  56. 455 d=val(b$):ifd=1thengoto100
  57. 460 ifd=2thengoto100
  58. 465 ifd=3thenprint"[147]":goto63000
  59. 470 goto450
  60. 500 ma=nm:yl=ny:pt=nt:mn=0:ny=0:nt=0:print"[147]":goto220
  61. 5000 dimc$(6,13)
  62. 5010 for i = 0 to 5
  63. 5020 for j = 0 to 12
  64. 5030 read c$(i,j)
  65. 5035 next j
  66. 5040 nexti:return
  67. 5045 data red,5,5,2,10,10,2,20,20,7,30,30,14
  68. 5050 data green,5,0,1,10,0,2,20,0,2,30,0,4
  69. 5055 data blue,0,5,1,0,10,1,0,20,1,0,30,1
  70. 5060 data cyan,5,5,2,10,10,2,20,20,2,30,30,4
  71. 5065 data magenta,5,0,1,10,0,1,20,0,5,30,0,10
  72. 5070 data yellow,0,5,1,0,10,1,0,20,1,0,30,2
  73. 63000 rem    connect back to l.s.
  74. 63002 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  75. 63004 poke198,0:poke631,13:poke632,13:poke198,2:end
  76.